home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE22 / CLINIC / Menus2 / MenuU2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-04-05  |  538 b   |  34 lines
  1. unit MenuU2;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Menus, StdCtrls;
  8.  
  9. type
  10.   TOtherForm = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     Menu1: TMenuItem;
  13.     Item1: TMenuItem;
  14.     Edit1: TEdit;
  15.     Label1: TLabel;
  16.     Edit2: TEdit;
  17.     procedure Item1Click(Sender: TObject);
  18.   private
  19.   end;
  20.  
  21. var
  22.   OtherForm: TOtherForm;
  23.  
  24. implementation
  25.  
  26. {$R *.DFM}
  27.  
  28. procedure TOtherForm.Item1Click(Sender: TObject);
  29. begin
  30.   ShowMessage('Hello')
  31. end;
  32.  
  33. end.
  34.